home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00047_Script_47 < prev    next >
Text File  |  1999-03-07  |  741b  |  26 lines
  1. on enterFrame
  2.   global currentplane, paramchartredraw
  3.   global cheraseflag
  4.   global defaultflag
  5.   set defaultflag = false  
  6.   set cheraseflag = true
  7.   clearpups
  8.   initcurrentplane
  9.   set the text of field "chartassumptions" = " "
  10.   set the text of field "displane" = "No Competitor"
  11.   set the text of field "aaplanename" = currentplane
  12.   set paramchartredraw = 0
  13. end
  14. on exitframe
  15.   global currentchartname, compdrawplace
  16.   watchcursor
  17.   set compdrawplace = "performance"
  18.   getchartnames
  19.   set currentchartname = "Payload-Range"
  20.   --set currentchartname = "Range-Speed"
  21.   set chCompDisplay = ""
  22.   getaircrafts         -- fill competitor popups
  23.   setupchart           -- draw first chart
  24.   arrowcursor
  25.   updatestage
  26. end